﻿Public Class ServerProcess
    Inherits Process

    Public Enabled As Boolean = False

    Public Sub New(ByVal Target As String)
        StartInfo.FileName = Target
        StartInfo.WindowStyle = ProcessWindowStyle.Maximized
        If Enabled = True Then
            Me.Start()
        End If
    End Sub

End Class

Partial Public Class DanoQuest

    Public Sub StopServer() Handles Me.Exiting
        Try
            ServerProcess.Kill()
        Catch ex As Exception

        End Try

    End Sub
End Class